per omino4 :di :sp :co :bd1 :bd2 :bs1 :bs2 :gd1 :gd2 :gs1 :gs2
as "dim :di
as "spe :sp
as "col :co
as "braccio.destro.angolo1 :bd1
as "braccio.destro.angolo2 :bd2
as "braccio.sinistro.angolo1 :bs1
as "braccio.sinistro.angolo2 :bs2
as "gamba.destra.angolo1 :gd1
as "gamba.destra.angolo2 :gd2
as "gamba.sinistra.angolo1 :gs1
as "gamba.sinistra.angolo2 :gs2
omino.inizio
omino.testa
omino.collo
braccio.destro
braccio.sinistro
omino.corpo
gamba.destra
gamba.sinistra
omino.inizio.torna
fine
per omino.inizio
as "omino.inizio dove
as "omino.direzione dir
fine
per omino.inizio.torna
cominciapos :omino.inizio
asdir :omino.direzione
fine
per ricorda.posizione.direzione
as "dove.stavi dove
as "dove.guardavi dir
fine
per ritrova.posizione.direzione
cominciapos :dove.stavi
asdir :dove.guardavi
fine
per omino.testa
spessore :spe
ascolpenna :col
as "testa.raggio prodotto :dim .5
cerchio :testa.raggio
sulapenna
indietro :testa.raggio
fine
per omino.collo
giulapenna
spessore :spe
ascolpenna :col
as "collo.dim prodotto :dim .3
indietro :collo.dim
fine
per omino.corpo
spessore :spe
ascolpenna :col
as "corpo.dim prodotto :dim 1.2
indietro :corpo.dim
fine
per braccio.destro
ascolpenna :col
spessore :spe
as "braccio.destro.lunghezza1 prodotto :dim :braccio.corpo1
as "braccio.destro.lunghezza2 prodotto :dim :braccio.corpo2
ricorda.posizione.direzione
destra :braccio.destro.angolo1
avanti :braccio.destro.lunghezza1
destra :braccio.destro.angolo2
avanti :braccio.destro.lunghezza2
ritrova.posizione.direzione
fine
per braccio.sinistro
ascolpenna :col
spessore :spe
as "braccio.sinistro.lunghezza1 prodotto :dim :braccio.corpo1
as "braccio.sinistro.lunghezza2 prodotto :dim :braccio.corpo2
ricorda.posizione.direzione
sinistra :braccio.sinistro.angolo1
avanti :braccio.sinistro.lunghezza1
destra :braccio.sinistro.angolo2
avanti :braccio.sinistro.lunghezza2
ritrova.posizione.direzione
fine
per gamba.destra
ascolpenna :col
spessore :spe
as "gamba.destra.lunghezza1 prodotto :dim :gamba.corpo1
as "gamba.destra.lunghezza2 prodotto :dim :gamba.corpo2
ricorda.posizione.direzione
destra :gamba.destra.angolo1
avanti :gamba.destra.lunghezza1
destra :gamba.destra.angolo2
avanti :gamba.destra.lunghezza2
ritrova.posizione.direzione
fine
per gamba.sinistra
ascolpenna :col
spessore :spe
as "gamba.sinistra.lunghezza1 prodotto :dim :gamba.corpo1
as "gamba.sinistra.lunghezza2 prodotto :dim :gamba.corpo2
ricorda.posizione.direzione
sinistra :gamba.sinistra.angolo1
avanti :gamba.sinistra.lunghezza1
sinistra :gamba.sinistra.angolo2
avanti :gamba.sinistra.lunghezza2
ritrova.posizione.direzione
fine
tarta.apparecchia
sfondopanna3
as "braccio.corpo1 0.6
as "braccio.corpo2 0.6
as "gamba.corpo1 0.7
as "gamba.corpo2 0.6
cominciaxy -200 0
omino4 50 5 :blu1 120 30 120 30 140 20 140 -20
saltax 80
omino4 50 5 :blu3 110 30 110 30 140 20 140 -20
saltax 80
omino4 50 5 :blu5 100 30 100 40 140 20 140 -20
saltax 80
omino4 50 5 :blu5 90 30 90 50 140 20 140 -20
sfondo.conserva.come "omini4
tarta.apparecchia
sfondopanna3
as "braccio.corpo1 0.6
as "braccio.corpo2 0.6
as "gamba.corpo1 0.7
as "gamba.corpo2 0.6
as "dim :di
as "spe :sp
as "col :co
as "braccio.destro.angolo1 :bd1
as "braccio.destro.angolo2 :bd2
as "braccio.sinistro.angolo1 :bs1
as "braccio.sinistro.angolo2 :bs2
as "gamba.destra.angolo1 :gd1
as "gamba.destra.angolo2 :gd2
as "gamba.sinistra.angolo1 :gs1
as "gamba.sinistra.angolo2 :gs2
omino.inizio
omino.testa
omino.collo
braccio.destro
braccio.sinistro
omino.corpo
gamba.destra
gamba.sinistra
omino.inizio.torna
fine
per omino.inizio
as "omino.inizio dove
as "omino.direzione dir
fine
per omino.inizio.torna
cominciapos :omino.inizio
asdir :omino.direzione
fine
per ricorda.posizione.direzione
as "dove.stavi dove
as "dove.guardavi dir
fine
per ritrova.posizione.direzione
cominciapos :dove.stavi
asdir :dove.guardavi
fine
per omino.testa
spessore :spe
ascolpenna :col
as "testa.raggio prodotto :dim .5
cerchio :testa.raggio
sulapenna
indietro :testa.raggio
fine
per omino.collo
giulapenna
spessore :spe
ascolpenna :col
as "collo.dim prodotto :dim .3
indietro :collo.dim
fine
per omino.corpo
spessore :spe
ascolpenna :col
as "corpo.dim prodotto :dim 1.2
indietro :corpo.dim
fine
per braccio.destro
ascolpenna :col
spessore :spe
as "braccio.destro.lunghezza1 prodotto :dim :braccio.corpo1
as "braccio.destro.lunghezza2 prodotto :dim :braccio.corpo2
ricorda.posizione.direzione
destra :braccio.destro.angolo1
avanti :braccio.destro.lunghezza1
destra :braccio.destro.angolo2
avanti :braccio.destro.lunghezza2
ritrova.posizione.direzione
fine
per braccio.sinistro
ascolpenna :col
spessore :spe
as "braccio.sinistro.lunghezza1 prodotto :dim :braccio.corpo1
as "braccio.sinistro.lunghezza2 prodotto :dim :braccio.corpo2
ricorda.posizione.direzione
sinistra :braccio.sinistro.angolo1
avanti :braccio.sinistro.lunghezza1
destra :braccio.sinistro.angolo2
avanti :braccio.sinistro.lunghezza2
ritrova.posizione.direzione
fine
per gamba.destra
ascolpenna :col
spessore :spe
as "gamba.destra.lunghezza1 prodotto :dim :gamba.corpo1
as "gamba.destra.lunghezza2 prodotto :dim :gamba.corpo2
ricorda.posizione.direzione
destra :gamba.destra.angolo1
avanti :gamba.destra.lunghezza1
destra :gamba.destra.angolo2
avanti :gamba.destra.lunghezza2
ritrova.posizione.direzione
fine
per gamba.sinistra
ascolpenna :col
spessore :spe
as "gamba.sinistra.lunghezza1 prodotto :dim :gamba.corpo1
as "gamba.sinistra.lunghezza2 prodotto :dim :gamba.corpo2
ricorda.posizione.direzione
sinistra :gamba.sinistra.angolo1
avanti :gamba.sinistra.lunghezza1
sinistra :gamba.sinistra.angolo2
avanti :gamba.sinistra.lunghezza2
ritrova.posizione.direzione
fine
tarta.apparecchia
sfondopanna3
as "braccio.corpo1 0.6
as "braccio.corpo2 0.6
as "gamba.corpo1 0.7
as "gamba.corpo2 0.6
cominciaxy -200 0
omino4 50 5 :blu1 120 30 120 30 140 20 140 -20
saltax 80
omino4 50 5 :blu3 110 30 110 30 140 20 140 -20
saltax 80
omino4 50 5 :blu5 100 30 100 40 140 20 140 -20
saltax 80
omino4 50 5 :blu5 90 30 90 50 140 20 140 -20
sfondo.conserva.come "omini4
tarta.apparecchia
sfondopanna3
as "braccio.corpo1 0.6
as "braccio.corpo2 0.6
as "gamba.corpo1 0.7
as "gamba.corpo2 0.6
cominciaxy -200 0
omino4 80 15 :rosso1 120 90 120 30 120 120 140 -20
saltax 160
omino4 60 15 :giallo1 110 90 110 30 140 120 140 -20
saltax 160
omino4 40 15 :verde5 100 90 140 40 100 120 120 -120
saltax 120
omino4 20 10 :blu5 90 30 90 50 140 20 140 -120
sfondo.conserva.come "omini4